100 POINT    = $00FA
110 SEQPOINT = $00FC
120 LOADFLAG = $000A
130 BLOCK    = $0002
140 ERROROUT = $A437
150 LOADFILE = $FFD5
160 ERROR    = $E1D1
170 STATUS   = $FFB7
180 MORECHAR = $E206
190 SETNAME  = $FFBD
200 SETPARAM = $FFBA
210 GETBYTE  = $E200
220 CHKCOM   = $AEFD
230 GETSTRNG = $E257
240 *=$C350
250 LDA #$A0
260 STA POINT+1
270 LDA #$90
280 STA SEQPOINT+1
290 LDA #0
300 STA POINT
310 STA SEQPOINT
320 STA LOADFLAG
330 STA BLOCK
340 JSR GETPARAM
350 LOADLOOP *=*
360 LDA LOADFLAG
370 LDX POINT
380 LDY POINT+1
390 CPY #$C0
400 BCC NOTOOMEM
410 OUTOFMEM *=*
420 LDX #$10
430 JMP ERROROUT
440 NOTOOMEM *=*
450 JSR LOADFILE
460 BCC NOERR
470 JMP ERROR
480 NOERR *=*
490 JSR STATUS
500 AND #$BF
510 BEQ NOTLDERR
520 LDX #$1D
530 JMP ERROROUT
540 NOTLDERR *=*
550 LDA POINT+1
560 CLC
570 ADC #4
580 STA POINT+1
590 SEI
600 LDA #$36
610 STA 1
620 LDY #$4F
630 LDA (POINT),Y
640 PHA
650 TAY
660 CLC
670 ADC SEQPOINT
680 LDA SEQPOINT+1
690 ADC #0
700 CMP #$A0
710 BCS OUTOFMEM
720 LDA #$FF
730 STA (SEQPOINT),Y
740 DEY
750 BMI ENDCOPY
760 SEQCOPY *=*
770 LDA (POINT),Y
780 AND #$F
790 ORA BLOCK
800 STA (SEQPOINT),Y
810 DEY
820 BPL SEQCOPY
830 ENDCOPY *=*
840 LDA #$37
850 STA 1
860 CLI
870 LDA BLOCK
880 CLC
890 ADC #$10
900 STA BLOCK
910 PLA
920 CLC
930 ADC SEQPOINT
940 STA SEQPOINT
950 BCC NINSEQP
960 INC SEQPOINT+1
970 NINSEQP *=*
980 JSR MORECHAR
990 JSR GETNAME
1000 LDY #0
1010 STY $B9
1020 BEQ LOADLOOP
1030 GETPARAM *=*
1040 LDA #0
1050 JSR SETNAME
1060 LDX #1
1070 TAY
1080 JSR SETPARAM
1090 JSR MORECHAR
1100 JSR GETBYTE
1110 LDY #0
1120 JSR SETPARAM
1130 JSR MORECHAR
1140 GETNAME *=*
1150 JSR CHKCOM
1160 JMP GETSTRNG